/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / blackbox.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 53 75 | 6e 20 41 75 67 20 20 31 |du on Su|n Aug  1|
|00000040| 20 31 38 3a 35 30 3a 31 | 35 20 31 39 39 33 0a 3b | 18:50:1|5 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 62 6c 61 | 63 6b 62 6f 78 2e 65 6c |lisp/bla|ckbox.el|
|00000080| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|00000090| 6f 6e 20 31 39 2e 31 37 | 2e 35 2e 0a 3b 3b 3b 20 |on 19.17|.5..;;; |
|000000a0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000b0| 20 46 53 46 20 32 2e 31 | 30 0a 3b 3b 3b 20 6f 70 | FSF 2.1|0.;;; op|
|000000c0| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|000000d0| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|000000e0| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|000000f0| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000100| 69 6e 20 45 6d 61 63 73 | 20 31 38 2e 0a 0a 28 69 |in Emacs| 18...(i|
|00000110| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000120| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000130| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000140| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|00000150| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|00000160| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|00000170| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|00000180| 73 69 6f 6e 20 22 31 39 | 22 29 29 29 0a 20 20 20 |sion "19|"))).   |
|00000190| 20 28 65 72 72 6f 72 20 | 22 54 68 69 73 20 66 69 | (error |"This fi|
|000001a0| 6c 65 20 77 61 73 20 63 | 6f 6d 70 69 6c 65 64 20 |le was c|ompiled |
|000001b0| 66 6f 72 20 45 6d 61 63 | 73 20 31 39 22 29 29 0a |for Emac|s 19")).|
|000001c0| 0a 28 64 65 66 76 61 72 | 20 62 6c 61 63 6b 62 6f |.(defvar| blackbo|
|000001d0| 78 2d 6d 6f 64 65 2d 6d | 61 70 20 6e 69 6c 20 22 |x-mode-m|ap nil "|
|000001e0| 5c 0a 22 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |\.").(by|te-code |
|000001f0| 22 08 84 60 00 c1 20 10 | c2 08 c3 5c 22 88 c4 08 |"..`.. .|...\"...|
|00000200| c5 c6 23 88 c4 08 c7 c6 | 23 88 c4 08 c8 c9 23 88 |..#.....|#.....#.|
|00000210| c4 08 ca c9 23 88 c4 08 | cb cc 23 88 c4 08 cd cc |....#...|..#.....|
|00000220| 23 88 c4 08 ce cf 23 88 | c4 08 d0 cf 23 88 c4 08 |#.....#.|....#...|
|00000230| d1 d2 23 88 c4 08 d3 d4 | 23 88 c4 08 d5 d6 23 88 |..#.....|#.....#.|
|00000240| c4 08 d7 d6 23 88 c4 08 | d8 d9 23 88 c4 08 da d9 |....#...|..#.....|
|00000250| 23 88 db dc dd de 23 87 | 22 20 5b 62 6c 61 63 6b |#.....#.|" [black|
|00000260| 62 6f 78 2d 6d 6f 64 65 | 2d 6d 61 70 20 6d 61 6b |box-mode|-map mak|
|00000270| 65 2d 6b 65 79 6d 61 70 | 20 73 75 70 70 72 65 73 |e-keymap| suppres|
|00000280| 73 2d 6b 65 79 6d 61 70 | 20 74 20 64 65 66 69 6e |s-keymap| t defin|
|00000290| 65 2d 6b 65 79 20 22 06 | 22 20 62 62 2d 72 69 67 |e-key ".|" bb-rig|
|000002a0| 68 74 20 5b 72 69 67 68 | 74 5d 20 22 02 22 20 62 |ht [righ|t] "." b|
|000002b0| 62 2d 6c 65 66 74 20 5b | 6c 65 66 74 5d 20 22 10 |b-left [|left] ".|
|000002c0| 22 20 62 62 2d 75 70 20 | 5b 75 70 5d 20 22 0e 22 |" bb-up |[up] "."|
|000002d0| 20 62 62 2d 64 6f 77 6e | 20 5b 64 6f 77 6e 5d 20 | bb-down| [down] |
|000002e0| 22 05 22 20 62 62 2d 65 | 6f 6c 20 22 01 22 20 62 |"." bb-e|ol "." b|
|000002f0| 62 2d 62 6f 6c 20 22 20 | 22 20 62 62 2d 72 6f 6d |b-bol " |" bb-rom|
|00000300| 70 20 5b 69 6e 73 65 72 | 74 5d 20 22 0d 22 20 62 |p [inser|t] "." b|
|00000310| 62 2d 64 6f 6e 65 20 5b | 6b 70 2d 65 6e 74 65 72 |b-done [|kp-enter|
|00000320| 5d 20 70 75 74 20 62 6c | 61 63 6b 62 6f 78 2d 6d |] put bl|ackbox-m|
|00000330| 6f 64 65 20 6d 6f 64 65 | 2d 63 6c 61 73 73 20 73 |ode mode|-class s|
|00000340| 70 65 63 69 61 6c 5d 20 | 34 29 0a 28 64 65 66 61 |pecial] |4).(defa|
|00000350| 6c 69 61 73 20 27 62 6c | 61 63 6b 62 6f 78 2d 6d |lias 'bl|ackbox-m|
|00000360| 6f 64 65 20 23 5b 6e 69 | 6c 20 22 c0 20 88 c1 5c |ode #[ni|l ". ..\|
|00000370| 6e 21 88 c3 14 c5 16 06 | c7 89 16 08 87 22 20 5b |n!......|....." [|
|00000380| 6b 69 6c 6c 2d 61 6c 6c | 2d 6c 6f 63 61 6c 2d 76 |kill-all|-local-v|
|00000390| 61 72 69 61 62 6c 65 73 | 20 75 73 65 2d 6c 6f 63 |ariables| use-loc|
|000003a0| 61 6c 2d 6d 61 70 20 62 | 6c 61 63 6b 62 6f 78 2d |al-map b|lackbox-|
|000003b0| 6d 6f 64 65 2d 6d 61 70 | 20 74 20 74 72 75 6e 63 |mode-map| t trunc|
|000003c0| 61 74 65 2d 6c 69 6e 65 | 73 20 62 6c 61 63 6b 62 |ate-line|s blackb|
|000003d0| 6f 78 2d 6d 6f 64 65 20 | 6d 61 6a 6f 72 2d 6d 6f |ox-mode |major-mo|
|000003e0| 64 65 20 22 42 6c 61 63 | 6b 62 6f 78 22 20 6d 6f |de "Blac|kbox" mo|
|000003f0| 64 65 2d 6e 61 6d 65 5d | 20 32 20 22 5c 0a 4d 61 |de-name]| 2 "\.Ma|
|00000400| 6a 6f 72 20 6d 6f 64 65 | 20 66 6f 72 20 70 6c 61 |jor mode| for pla|
|00000410| 79 69 6e 67 20 62 6c 61 | 63 6b 62 6f 78 2e 20 20 |ying bla|ckbox.  |
|00000420| 54 6f 20 6c 65 61 72 6e | 20 68 6f 77 20 74 6f 20 |To learn| how to |
|00000430| 70 6c 61 79 20 62 6c 61 | 63 6b 62 6f 78 2c 0a 73 |play bla|ckbox,.s|
|00000440| 65 65 20 74 68 65 20 64 | 6f 63 75 6d 65 6e 74 61 |ee the d|ocumenta|
|00000450| 74 69 6f 6e 20 66 6f 72 | 20 66 75 6e 63 74 69 6f |tion for| functio|
|00000460| 6e 20 60 62 6c 61 63 6b | 62 6f 78 27 2e 0a 0a 54 |n `black|box'...T|
|00000470| 68 65 20 75 73 75 61 6c | 20 6d 6e 65 6d 6f 6e 69 |he usual| mnemoni|
|00000480| 63 20 6b 65 79 73 20 6d | 6f 76 65 20 74 68 65 20 |c keys m|ove the |
|00000490| 63 75 72 73 6f 72 20 61 | 72 6f 75 6e 64 20 74 68 |cursor a|round th|
|000004a0| 65 20 62 6f 78 2e 0a 5c | 5c 3c 62 6c 61 63 6b 62 |e box..\|\<blackb|
|000004b0| 6f 78 2d 6d 6f 64 65 2d | 6d 61 70 3e 5c 5c 5b 62 |ox-mode-|map>\\[b|
|000004c0| 62 2d 62 6f 6c 5d 20 61 | 6e 64 20 5c 5c 5b 62 62 |b-bol] a|nd \\[bb|
|000004d0| 2d 65 6f 6c 5d 20 6d 6f | 76 65 20 74 6f 20 74 68 |-eol] mo|ve to th|
|000004e0| 65 20 62 65 67 69 6e 6e | 69 6e 67 20 61 6e 64 20 |e beginn|ing and |
|000004f0| 65 6e 64 20 6f 66 20 6c | 69 6e 65 2c 20 72 65 73 |end of l|ine, res|
|00000500| 70 65 63 74 69 76 65 6c | 79 2e 0a 0a 5c 5c 5b 62 |pectivel|y...\\[b|
|00000510| 62 2d 72 6f 6d 70 5d 20 | 2d 2d 20 73 65 6e 64 20 |b-romp] |-- send |
|00000520| 69 6e 20 61 20 72 61 79 | 20 66 72 6f 6d 20 70 6f |in a ray| from po|
|00000530| 69 6e 74 2c 20 6f 72 20 | 74 6f 67 67 6c 65 20 61 |int, or |toggle a|
|00000540| 20 62 61 6c 6c 20 61 74 | 20 70 6f 69 6e 74 0a 5c | ball at| point.\|
|00000550| 5c 5b 62 62 2d 64 6f 6e | 65 5d 20 2d 2d 20 65 6e |\[bb-don|e] -- en|
|00000560| 64 20 67 61 6d 65 20 61 | 6e 64 20 67 65 74 20 73 |d game a|nd get s|
|00000570| 63 6f 72 65 0a 22 20 6e | 69 6c 5d 29 0a 28 64 65 |core." n|il]).(de|
|00000580| 66 61 6c 69 61 73 20 27 | 62 6c 61 63 6b 62 6f 78 |falias '|blackbox|
|00000590| 20 23 5b 28 6e 75 6d 29 | 20 22 c0 c1 21 88 c2 20 | #[(num)| "..!.. |
|000005a0| 88 c3 14 c5 70 21 88 c6 | 0e 07 86 14 00 c8 21 16 |....p!..|......!.|
|000005b0| 09 ca 16 0b cc 16 0d cc | 16 0e cf 16 10 cf 16 11 |........|........|
|000005c0| d2 20 88 d3 0e 0d 0e 0e | 42 21 87 22 20 5b 73 77 |. ......|B!." [sw|
|000005d0| 69 74 63 68 2d 74 6f 2d | 62 75 66 66 65 72 20 22 |itch-to-|buffer "|
|000005e0| 2a 42 6c 61 63 6b 62 6f | 78 2a 22 20 62 6c 61 63 |*Blackbo|x*" blac|
|000005f0| 6b 62 6f 78 2d 6d 6f 64 | 65 20 74 20 62 75 66 66 |kbox-mod|e t buff|
|00000600| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 62 75 66 |er-read-|only buf|
|00000610| 66 65 72 2d 64 69 73 61 | 62 6c 65 2d 75 6e 64 6f |fer-disa|ble-undo|
|00000620| 20 62 62 2d 69 6e 69 74 | 2d 62 6f 61 72 64 20 6e | bb-init|-board n|
|00000630| 75 6d 20 34 20 62 62 2d | 62 6f 61 72 64 20 6e 69 |um 4 bb-|board ni|
|00000640| 6c 20 62 62 2d 62 61 6c | 6c 73 2d 70 6c 61 63 65 |l bb-bal|ls-place|
|00000650| 64 20 2d 31 20 62 62 2d | 78 20 62 62 2d 79 20 30 |d -1 bb-|x bb-y 0|
|00000660| 20 62 62 2d 73 63 6f 72 | 65 20 62 62 2d 64 65 74 | bb-scor|e bb-det|
|00000670| 6f 75 72 2d 63 6f 75 6e | 74 20 62 62 2d 69 6e 73 |our-coun|t bb-ins|
|00000680| 65 72 74 2d 62 6f 61 72 | 64 20 62 62 2d 67 6f 74 |ert-boar|d bb-got|
|00000690| 6f 5d 20 33 20 22 5c 0a | 50 6c 61 79 20 62 6c 61 |o] 3 "\.|Play bla|
|000006a0| 63 6b 62 6f 78 2e 20 20 | 4f 70 74 69 6f 6e 61 6c |ckbox.  |Optional|
|000006b0| 20 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 | prefix |argument|
|000006c0| 20 69 73 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f | is the |number o|
|000006d0| 66 20 62 61 6c 6c 73 3b | 0a 74 68 65 20 64 65 66 |f balls;|.the def|
|000006e0| 61 75 6c 74 20 69 73 20 | 34 2e 0a 0a 57 68 61 74 |ault is |4...What|
|000006f0| 20 69 73 20 62 6c 61 63 | 6b 62 6f 78 3f 0a 0a 42 | is blac|kbox?..B|
|00000700| 6c 61 63 6b 62 6f 78 20 | 69 73 20 61 20 67 61 6d |lackbox |is a gam|
|00000710| 65 20 6f 66 20 68 69 64 | 65 20 61 6e 64 20 73 65 |e of hid|e and se|
|00000720| 65 6b 20 70 6c 61 79 65 | 64 20 6f 6e 20 61 6e 20 |ek playe|d on an |
|00000730| 38 20 62 79 20 38 20 67 | 72 69 64 20 28 74 68 65 |8 by 8 g|rid (the|
|00000740| 0a 42 6c 61 63 6b 62 6f | 78 29 2e 20 20 59 6f 75 |.Blackbo|x).  You|
|00000750| 72 20 6f 70 70 6f 6e 65 | 6e 74 20 28 45 6d 61 63 |r oppone|nt (Emac|
|00000760| 73 2c 20 69 6e 20 74 68 | 69 73 20 63 61 73 65 29 |s, in th|is case)|
|00000770| 20 68 61 73 20 68 69 64 | 64 65 6e 20 73 65 76 65 | has hid|den seve|
|00000780| 72 61 6c 0a 62 61 6c 6c | 73 20 28 75 73 75 61 6c |ral.ball|s (usual|
|00000790| 6c 79 20 34 29 20 77 69 | 74 68 69 6e 20 74 68 69 |ly 4) wi|thin thi|
|000007a0| 73 20 62 6f 78 2e 20 20 | 42 79 20 73 68 6f 6f 74 |s box.  |By shoot|
|000007b0| 69 6e 67 20 72 61 79 73 | 20 69 6e 74 6f 20 74 68 |ing rays| into th|
|000007c0| 65 20 62 6f 78 20 61 6e | 64 0a 6f 62 73 65 72 76 |e box an|d.observ|
|000007d0| 69 6e 67 20 77 68 65 72 | 65 20 74 68 65 79 20 65 |ing wher|e they e|
|000007e0| 6d 65 72 67 65 20 69 74 | 20 69 73 20 70 6f 73 73 |merge it| is poss|
|000007f0| 69 62 6c 65 20 74 6f 20 | 64 65 64 75 63 65 20 74 |ible to |deduce t|
|00000800| 68 65 20 70 6f 73 69 74 | 69 6f 6e 73 20 6f 66 0a |he posit|ions of.|
|00000810| 74 68 65 20 68 69 64 64 | 65 6e 20 62 61 6c 6c 73 |the hidd|en balls|
|00000820| 2e 20 20 54 68 65 20 66 | 65 77 65 72 20 72 61 79 |.  The f|ewer ray|
|00000830| 73 20 79 6f 75 20 75 73 | 65 20 74 6f 20 66 69 6e |s you us|e to fin|
|00000840| 64 20 74 68 65 20 62 61 | 6c 6c 73 2c 20 74 68 65 |d the ba|lls, the|
|00000850| 20 6c 6f 77 65 72 0a 79 | 6f 75 72 20 73 63 6f 72 | lower.y|our scor|
|00000860| 65 2e 0a 0a 4f 76 65 72 | 76 69 65 77 20 6f 66 20 |e...Over|view of |
|00000870| 70 6c 61 79 3a 0a 0a 5c | 5c 3c 62 6c 61 63 6b 62 |play:..\|\<blackb|
|00000880| 6f 78 2d 6d 6f 64 65 2d | 6d 61 70 3e 54 6f 20 70 |ox-mode-|map>To p|
|00000890| 6c 61 79 20 62 6c 61 63 | 6b 62 6f 78 2c 20 74 79 |lay blac|kbox, ty|
|000008a0| 70 65 20 5c 5c 5b 62 6c | 61 63 6b 62 6f 78 5d 2e |pe \\[bl|ackbox].|
|000008b0| 20 20 41 6e 20 6f 70 74 | 69 6f 6e 61 6c 20 70 72 |  An opt|ional pr|
|000008c0| 65 66 69 78 20 61 72 67 | 75 6d 65 6e 74 0a 73 70 |efix arg|ument.sp|
|000008d0| 65 63 69 66 69 65 73 20 | 74 68 65 20 6e 75 6d 62 |ecifies |the numb|
|000008e0| 65 72 20 6f 66 20 62 61 | 6c 6c 73 20 74 6f 20 62 |er of ba|lls to b|
|000008f0| 65 20 68 69 64 64 65 6e | 20 69 6e 20 74 68 65 20 |e hidden| in the |
|00000900| 62 6f 78 3b 20 74 68 65 | 20 64 65 66 61 75 6c 74 |box; the| default|
|00000910| 20 69 73 0a 66 6f 75 72 | 2e 0a 0a 54 68 65 20 63 | is.four|...The c|
|00000920| 75 72 73 6f 72 20 63 61 | 6e 20 62 65 20 6d 6f 76 |ursor ca|n be mov|
|00000930| 65 64 20 61 72 6f 75 6e | 64 20 74 68 65 20 62 6f |ed aroun|d the bo|
|00000940| 78 20 77 69 74 68 20 74 | 68 65 20 73 74 61 6e 64 |x with t|he stand|
|00000950| 61 72 64 20 63 75 72 73 | 6f 72 0a 6d 6f 76 65 6d |ard curs|or.movem|
|00000960| 65 6e 74 20 6b 65 79 73 | 2e 0a 0a 54 6f 20 73 68 |ent keys|...To sh|
|00000970| 6f 6f 74 20 61 20 72 61 | 79 2c 20 6d 6f 76 65 20 |oot a ra|y, move |
|00000980| 74 68 65 20 63 75 72 73 | 6f 72 20 74 6f 20 74 68 |the curs|or to th|
|00000990| 65 20 65 64 67 65 20 6f | 66 20 74 68 65 20 62 6f |e edge o|f the bo|
|000009a0| 78 20 61 6e 64 20 70 72 | 65 73 73 20 53 50 43 2e |x and pr|ess SPC.|
|000009b0| 0a 54 68 65 20 72 65 73 | 75 6c 74 20 77 69 6c 6c |.The res|ult will|
|000009c0| 20 62 65 20 64 65 74 65 | 72 6d 69 6e 65 64 20 61 | be dete|rmined a|
|000009d0| 6e 64 20 74 68 65 20 70 | 6c 61 79 66 69 65 6c 64 |nd the p|layfield|
|000009e0| 20 75 70 64 61 74 65 64 | 2e 0a 0a 59 6f 75 20 6d | updated|...You m|
|000009f0| 61 79 20 70 6c 61 63 65 | 20 6f 72 20 72 65 6d 6f |ay place| or remo|
|00000a00| 76 65 20 62 61 6c 6c 73 | 20 69 6e 20 74 68 65 20 |ve balls| in the |
|00000a10| 62 6f 78 20 62 79 20 6d | 6f 76 69 6e 67 20 74 68 |box by m|oving th|
|00000a20| 65 20 63 75 72 73 6f 72 | 20 69 6e 74 6f 20 74 68 |e cursor| into th|
|00000a30| 65 0a 62 6f 78 20 61 6e | 64 20 70 72 65 73 73 69 |e.box an|d pressi|
|00000a40| 6e 67 20 5c 5c 5b 62 62 | 2d 72 6f 6d 70 5d 2e 0a |ng \\[bb|-romp]..|
|00000a50| 0a 57 68 65 6e 20 79 6f | 75 20 74 68 69 6e 6b 20 |.When yo|u think |
|00000a60| 74 68 65 20 63 6f 6e 66 | 69 67 75 72 61 74 69 6f |the conf|iguratio|
|00000a70| 6e 20 6f 66 20 62 61 6c | 6c 73 20 79 6f 75 20 68 |n of bal|ls you h|
|00000a80| 61 76 65 20 70 6c 61 63 | 65 64 20 69 73 20 63 6f |ave plac|ed is co|
|00000a90| 72 72 65 63 74 2c 0a 70 | 72 65 73 73 20 5c 5c 5b |rrect,.p|ress \\[|
|00000aa0| 62 62 2d 64 6f 6e 65 5d | 2e 20 20 59 6f 75 20 77 |bb-done]|.  You w|
|00000ab0| 69 6c 6c 20 62 65 20 69 | 6e 66 6f 72 6d 65 64 20 |ill be i|nformed |
|00000ac0| 77 68 65 74 68 65 72 20 | 79 6f 75 20 61 72 65 20 |whether |you are |
|00000ad0| 63 6f 72 72 65 63 74 20 | 6f 72 0a 6e 6f 74 2c 20 |correct |or.not, |
|00000ae0| 61 6e 64 20 62 65 20 67 | 69 76 65 6e 20 79 6f 75 |and be g|iven you|
|00000af0| 72 20 73 63 6f 72 65 2e | 20 20 59 6f 75 72 20 73 |r score.|  Your s|
|00000b00| 63 6f 72 65 20 69 73 20 | 74 68 65 20 6e 75 6d 62 |core is |the numb|
|00000b10| 65 72 20 6f 66 20 6c 65 | 74 74 65 72 73 20 61 6e |er of le|tters an|
|00000b20| 64 0a 6e 75 6d 62 65 72 | 73 20 61 72 6f 75 6e 64 |d.number|s around|
|00000b30| 20 74 68 65 20 6f 75 74 | 73 69 64 65 20 6f 66 20 | the out|side of |
|00000b40| 74 68 65 20 62 6f 78 20 | 70 6c 75 73 20 66 69 76 |the box |plus fiv|
|00000b50| 65 20 66 6f 72 20 65 61 | 63 68 20 69 6e 63 6f 72 |e for ea|ch incor|
|00000b60| 72 65 63 74 6c 79 0a 70 | 6c 61 63 65 64 20 62 61 |rectly.p|laced ba|
|00000b70| 6c 6c 2e 20 20 49 66 20 | 79 6f 75 20 70 6c 61 63 |ll.  If |you plac|
|00000b80| 65 64 20 61 6e 79 20 62 | 61 6c 6c 73 20 69 6e 63 |ed any b|alls inc|
|00000b90| 6f 72 72 65 63 74 6c 79 | 2c 20 74 68 65 79 20 77 |orrectly|, they w|
|00000ba0| 69 6c 6c 20 62 65 0a 69 | 6e 64 69 63 61 74 65 64 |ill be.i|ndicated|
|00000bb0| 20 77 69 74 68 20 60 78 | 27 2c 20 61 6e 64 20 74 | with `x|', and t|
|00000bc0| 68 65 69 72 20 61 63 74 | 75 61 6c 20 70 6f 73 69 |heir act|ual posi|
|00000bd0| 74 69 6f 6e 73 20 69 6e | 64 69 63 61 74 65 64 20 |tions in|dicated |
|00000be0| 77 69 74 68 20 60 6f 27 | 2e 0a 0a 44 65 74 61 69 |with `o'|...Detai|
|00000bf0| 6c 73 3a 0a 0a 54 68 65 | 72 65 20 61 72 65 20 74 |ls:..The|re are t|
|00000c00| 68 72 65 65 20 70 6f 73 | 73 69 62 6c 65 20 6f 75 |hree pos|sible ou|
|00000c10| 74 63 6f 6d 65 73 20 66 | 6f 72 20 65 61 63 68 20 |tcomes f|or each |
|00000c20| 72 61 79 20 79 6f 75 20 | 73 65 6e 64 20 69 6e 74 |ray you |send int|
|00000c30| 6f 20 74 68 65 20 62 6f | 78 3a 0a 0a 09 44 65 74 |o the bo|x:...Det|
|00000c40| 6f 75 72 3a 20 74 68 65 | 20 72 61 79 20 69 73 20 |our: the| ray is |
|00000c50| 64 65 66 6c 65 63 74 65 | 64 20 61 6e 64 20 65 6d |deflecte|d and em|
|00000c60| 65 72 67 65 73 20 73 6f | 6d 65 77 68 65 72 65 20 |erges so|mewhere |
|00000c70| 6f 74 68 65 72 20 74 68 | 61 6e 0a 09 09 77 68 65 |other th|an...whe|
|00000c80| 72 65 20 79 6f 75 20 73 | 65 6e 74 20 69 74 20 69 |re you s|ent it i|
|00000c90| 6e 2e 20 20 4f 6e 20 74 | 68 65 20 70 6c 61 79 66 |n.  On t|he playf|
|00000ca0| 69 65 6c 64 2c 20 64 65 | 74 6f 75 72 73 20 61 72 |ield, de|tours ar|
|00000cb0| 65 0a 09 09 64 65 6e 6f | 74 65 64 20 62 79 20 6d |e...deno|ted by m|
|00000cc0| 61 74 63 68 69 6e 67 20 | 70 61 69 72 73 20 6f 66 |atching |pairs of|
|00000cd0| 20 6e 75 6d 62 65 72 73 | 20 2d 2d 20 6f 6e 65 20 | numbers| -- one |
|00000ce0| 77 68 65 72 65 20 74 68 | 65 0a 09 09 72 61 79 20 |where th|e...ray |
|00000cf0| 77 65 6e 74 20 69 6e 2c | 20 61 6e 64 20 74 68 65 |went in,| and the|
|00000d00| 20 6f 74 68 65 72 20 77 | 68 65 72 65 20 69 74 20 | other w|here it |
|00000d10| 63 61 6d 65 20 6f 75 74 | 2e 0a 0a 09 52 65 66 6c |came out|....Refl|
|00000d20| 65 63 74 69 6f 6e 3a 20 | 74 68 65 20 72 61 79 20 |ection: |the ray |
|00000d30| 69 73 20 72 65 66 6c 65 | 63 74 65 64 20 61 6e 64 |is refle|cted and|
|00000d40| 20 65 6d 65 72 67 65 73 | 20 69 6e 20 74 68 65 20 | emerges| in the |
|00000d50| 73 61 6d 65 20 70 6c 61 | 63 65 0a 09 09 69 74 20 |same pla|ce...it |
|00000d60| 77 61 73 20 73 65 6e 74 | 20 69 6e 2e 20 20 4f 6e |was sent| in.  On|
|00000d70| 20 74 68 65 20 70 6c 61 | 79 66 69 65 6c 64 2c 20 | the pla|yfield, |
|00000d80| 72 65 66 6c 65 63 74 69 | 6f 6e 73 20 61 72 65 0a |reflecti|ons are.|
|00000d90| 09 09 64 65 6e 6f 74 65 | 64 20 62 79 20 74 68 65 |..denote|d by the|
|00000da0| 20 6c 65 74 74 65 72 20 | 60 52 27 2e 0a 0a 09 48 | letter |`R'....H|
|00000db0| 69 74 3a 09 74 68 65 20 | 72 61 79 20 73 74 72 69 |it:.the |ray stri|
|00000dc0| 6b 65 73 20 61 20 62 61 | 6c 6c 20 64 69 72 65 63 |kes a ba|ll direc|
|00000dd0| 74 6c 79 20 61 6e 64 20 | 69 73 20 61 62 73 6f 72 |tly and |is absor|
|00000de0| 62 65 64 2e 20 20 49 74 | 20 64 6f 65 73 0a 09 09 |bed.  It| does...|
|00000df0| 6e 6f 74 20 65 6d 65 72 | 67 65 20 66 72 6f 6d 20 |not emer|ge from |
|00000e00| 74 68 65 20 62 6f 78 2e | 20 20 4f 6e 20 74 68 65 |the box.|  On the|
|00000e10| 20 70 6c 61 79 66 69 65 | 6c 64 2c 20 68 69 74 73 | playfie|ld, hits|
|00000e20| 20 61 72 65 0a 09 09 64 | 65 6e 6f 74 65 64 20 62 | are...d|enoted b|
|00000e30| 79 20 74 68 65 20 6c 65 | 74 74 65 72 20 60 48 27 |y the le|tter `H'|
|00000e40| 2e 0a 0a 54 68 65 20 72 | 75 6c 65 73 20 66 6f 72 |...The r|ules for|
|00000e50| 20 68 6f 77 20 62 61 6c | 6c 73 20 64 65 66 6c 65 | how bal|ls defle|
|00000e60| 63 74 20 72 61 79 73 20 | 61 72 65 20 73 69 6d 70 |ct rays |are simp|
|00000e70| 6c 65 20 61 6e 64 20 61 | 72 65 20 62 65 73 74 20 |le and a|re best |
|00000e80| 73 68 6f 77 6e 20 62 79 | 0a 65 78 61 6d 70 6c 65 |shown by|.example|
|00000e90| 2e 0a 0a 41 73 20 61 20 | 72 61 79 20 61 70 70 72 |...As a |ray appr|
|00000ea0| 6f 61 63 68 65 73 20 61 | 20 62 61 6c 6c 20 69 74 |oaches a| ball it|
|00000eb0| 20 69 73 20 64 65 66 6c | 65 63 74 65 64 20 6e 69 | is defl|ected ni|
|00000ec0| 6e 65 74 79 20 64 65 67 | 72 65 65 73 2e 20 20 52 |nety deg|rees.  R|
|00000ed0| 61 79 73 20 63 61 6e 0a | 62 65 20 64 65 66 6c 65 |ays can.|be defle|
|00000ee0| 63 74 65 64 20 6d 75 6c | 74 69 70 6c 65 20 74 69 |cted mul|tiple ti|
|00000ef0| 6d 65 73 2e 20 20 49 6e | 20 74 68 65 20 64 69 61 |mes.  In| the dia|
|00000f00| 67 72 61 6d 73 20 62 65 | 6c 6f 77 2c 20 74 68 65 |grams be|low, the|
|00000f10| 20 64 61 73 68 65 73 0a | 72 65 70 72 65 73 65 6e | dashes.|represen|
|00000f20| 74 20 65 6d 70 74 79 20 | 62 6f 78 20 6c 6f 63 61 |t empty |box loca|
|00000f30| 74 69 6f 6e 73 20 61 6e | 64 20 74 68 65 20 6c 65 |tions an|d the le|
|00000f40| 74 74 65 72 20 60 4f 27 | 20 72 65 70 72 65 73 65 |tter `O'| represe|
|00000f50| 6e 74 73 20 61 20 62 61 | 6c 6c 2e 0a 54 68 65 20 |nts a ba|ll..The |
|00000f60| 65 6e 74 72 61 6e 63 65 | 20 61 6e 64 20 65 78 69 |entrance| and exi|
|00000f70| 74 20 70 6f 69 6e 74 73 | 20 6f 66 20 65 61 63 68 |t points| of each|
|00000f80| 20 72 61 79 20 61 72 65 | 20 6d 61 72 6b 65 64 20 | ray are| marked |
|00000f90| 77 69 74 68 20 6e 75 6d | 62 65 72 73 20 61 73 0a |with num|bers as.|
|00000fa0| 64 65 73 63 72 69 62 65 | 64 20 75 6e 64 65 72 20 |describe|d under |
|00000fb0| 5c 22 44 65 74 6f 75 72 | 5c 22 20 61 62 6f 76 65 |\"Detour|\" above|
|00000fc0| 2e 20 20 4e 6f 74 65 20 | 74 68 61 74 20 74 68 65 |.  Note |that the|
|00000fd0| 20 65 6e 74 72 61 6e 63 | 65 20 61 6e 64 20 65 78 | entranc|e and ex|
|00000fe0| 69 74 0a 70 6f 69 6e 74 | 73 20 61 72 65 20 61 6c |it.point|s are al|
|00000ff0| 77 61 79 73 20 69 6e 74 | 65 72 63 68 61 6e 67 65 |ways int|erchange|
|00001000| 61 62 6c 65 2e 20 20 60 | 2a 27 20 64 65 6e 6f 74 |able.  `|*' denot|
|00001010| 65 73 20 74 68 65 20 70 | 61 74 68 20 74 61 6b 65 |es the p|ath take|
|00001020| 6e 20 62 79 20 74 68 65 | 0a 72 61 79 2e 0a 0a 4e |n by the|.ray...N|
|00001030| 6f 74 65 20 63 61 72 65 | 66 75 6c 6c 79 20 74 68 |ote care|fully th|
|00001040| 65 20 72 65 6c 61 74 69 | 76 65 20 70 6f 73 69 74 |e relati|ve posit|
|00001050| 69 6f 6e 73 20 6f 66 20 | 74 68 65 20 62 61 6c 6c |ions of |the ball|
|00001060| 20 61 6e 64 20 74 68 65 | 20 6e 69 6e 65 74 79 0a | and the| ninety.|
|00001070| 64 65 67 72 65 65 20 64 | 65 66 6c 65 63 74 69 6f |degree d|eflectio|
|00001080| 6e 20 69 74 20 63 61 75 | 73 65 73 2e 0a 0a 20 20 |n it cau|ses...  |
|00001090| 20 20 31 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |  1     |        |
|000010a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 0a |        |       .|
|000010c0| 20 20 2d 20 2a 20 2d 20 | 2d 20 2d 20 2d 20 2d 20 |  - * - |- - - - |
|000010d0| 2d 20 20 20 20 20 20 20 | 20 20 2d 20 2d 20 2d 20 |-       |  - - - |
|000010e0| 2d 20 2d 20 2d 20 2d 20 | 2d 20 20 20 20 20 20 20 |- - - - |-       |
|000010f0| 20 20 2d 20 2d 20 2d 20 | 2d 20 2d 20 2d 20 2d 20 |  - - - |- - - - |
|00001100| 2d 20 20 20 20 20 20 20 | 0a 20 20 2d 20 2a 20 2d |-       |.  - * -|
|00001110| 20 2d 20 2d 20 2d 20 2d | 20 2d 20 20 20 20 20 20 | - - - -| -      |
|00001120| 20 20 20 2d 20 2d 20 2d | 20 2d 20 2d 20 2d 20 2d |   - - -| - - - -|
|00001130| 20 2d 20 20 20 20 20 20 | 20 20 20 2d 20 2d 20 2d | -      |   - - -|
|00001140| 20 2d 20 2d 20 2d 20 2d | 20 2d 20 20 20 20 20 20 | - - - -| -      |
|00001150| 20 0a 31 20 2a 20 2a 20 | 2d 20 2d 20 2d 20 2d 20 | .1 * * |- - - - |
|00001160| 2d 20 2d 20 20 20 20 20 | 20 20 20 20 2d 20 2d 20 |- -     |    - - |
|00001170| 2d 20 2d 20 2d 20 2d 20 | 2d 20 2d 20 20 20 20 20 |- - - - |- -     |
|00001180| 20 20 20 20 2d 20 4f 20 | 2d 20 2d 20 2d 20 2d 20 |    - O |- - - - |
|00001190| 4f 20 2d 20 20 20 20 20 | 20 20 0a 20 20 2d 20 2d |O -     |  .  - -|
|000011a0| 20 4f 20 2d 20 2d 20 2d | 20 2d 20 2d 20 20 20 20 | O - - -| - -    |
|000011b0| 20 20 20 20 20 2d 20 2d | 20 4f 20 2d 20 2d 20 2d |     - -| O - - -|
|000011c0| 20 2d 20 2d 20 20 20 20 | 20 20 20 20 20 2d 20 2d | - -    |     - -|
|000011d0| 20 2a 20 2a 20 2a 20 2a | 20 2d 20 2d 0a 20 20 2d | * * * *| - -.  -|
|000011e0| 20 2d 20 2d 20 2d 20 2d | 20 2d 20 2d 20 2d 20 20 | - - - -| - - -  |
|000011f0| 20 20 20 20 20 20 20 2d | 20 2d 20 2d 20 2a 20 2a |       -| - - * *|
|00001200| 20 2a 20 2a 20 2a 20 32 | 20 20 20 20 20 33 20 2a | * * * 2|     3 *|
|00001210| 20 2a 20 2a 20 2d 20 2d | 20 2a 20 2d 20 2d 0a 20 | * * - -| * - -. |
|00001220| 20 2d 20 2d 20 2d 20 2d | 20 2d 20 2d 20 2d 20 2d | - - - -| - - - -|
|00001230| 20 20 20 20 20 20 20 20 | 20 2d 20 2d 20 2d 20 2a |        | - - - *|
|00001240| 20 2d 20 2d 20 2d 20 2d | 20 20 20 20 20 20 20 20 | - - - -|        |
|00001250| 20 2d 20 2d 20 2d 20 4f | 20 2d 20 2a 20 2d 20 2d | - - - O| - * - -|
|00001260| 20 20 20 20 20 20 0a 20 | 20 2d 20 2d 20 2d 20 2d |      . | - - - -|
|00001270| 20 2d 20 2d 20 2d 20 2d | 20 20 20 20 20 20 20 20 | - - - -|        |
|00001280| 20 2d 20 2d 20 2d 20 2a | 20 2d 20 2d 20 2d 20 2d | - - - *| - - - -|
|00001290| 20 20 20 20 20 20 20 20 | 20 2d 20 2d 20 2d 20 2d |        | - - - -|
|000012a0| 20 2a 20 2a 20 2d 20 2d | 20 20 20 20 20 20 20 0a | * * - -|       .|
|000012b0| 20 20 2d 20 2d 20 2d 20 | 2d 20 2d 20 2d 20 2d 20 |  - - - |- - - - |
|000012c0| 2d 20 20 20 20 20 20 20 | 20 20 2d 20 2d 20 2d 20 |-       |  - - - |
|000012d0| 2a 20 2d 20 2d 20 2d 20 | 2d 20 20 20 20 20 20 20 |* - - - |-       |
|000012e0| 20 20 2d 20 2d 20 2d 20 | 2d 20 2a 20 2d 20 4f 20 |  - - - |- * - O |
|000012f0| 2d 20 20 20 20 20 20 20 | 0a 20 20 20 20 20 20 20 |-       |.       |
|00001300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001310| 20 20 20 20 20 20 20 20 | 20 32 20 20 20 20 20 20 |        | 2      |
|00001320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001330| 20 20 20 33 0a 0a 41 73 | 20 6d 65 6e 74 69 6f 6e |   3..As| mention|
|00001340| 65 64 20 61 62 6f 76 65 | 2c 20 61 20 72 65 66 6c |ed above|, a refl|
|00001350| 65 63 74 69 6f 6e 20 6f | 63 63 75 72 73 20 77 68 |ection o|ccurs wh|
|00001360| 65 6e 20 61 20 72 61 79 | 20 65 6d 65 72 67 65 73 |en a ray| emerges|
|00001370| 20 66 72 6f 6d 20 74 68 | 65 20 73 61 6d 65 20 70 | from th|e same p|
|00001380| 6f 69 6e 74 0a 69 74 20 | 77 61 73 20 73 65 6e 74 |oint.it |was sent|
|00001390| 20 69 6e 2e 20 20 54 68 | 69 73 20 63 61 6e 20 68 | in.  Th|is can h|
|000013a0| 61 70 70 65 6e 20 69 6e | 20 73 65 76 65 72 61 6c |appen in| several|
|000013b0| 20 77 61 79 73 3a 0a 0a | 20 20 20 20 20 20 20 20 | ways:..|        |
|000013c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000013d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000013e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000013f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001400| 20 20 20 0a 20 20 2d 20 | 2d 20 2d 20 2d 20 2d 20 |   .  - |- - - - |
|00001410| 2d 20 2d 20 2d 20 20 20 | 20 20 20 20 20 20 2d 20 |- - -   |      - |
|00001420| 2d 20 2d 20 2d 20 2d 20 | 2d 20 2d 20 2d 20 20 20 |- - - - |- - -   |
|00001430| 20 20 20 20 20 20 20 2d | 20 2d 20 2d 20 2d 20 2d |       -| - - - -|
|00001440| 20 2d 20 2d 20 2d 0a 20 | 20 2d 20 2d 20 2d 20 2d | - - -. | - - - -|
|00001450| 20 4f 20 2d 20 2d 20 2d | 20 20 20 20 20 20 20 20 | O - - -|        |
|00001460| 20 2d 20 2d 20 4f 20 2d | 20 4f 20 2d 20 2d 20 2d | - - O -| O - - -|
|00001470| 20 20 20 20 20 20 20 20 | 20 20 2d 20 2d 20 2d 20 |        |  - - - |
|00001480| 2d 20 2d 20 2d 20 2d 20 | 2d 0a 52 20 2a 20 2a 20 |- - - - |-.R * * |
|00001490| 2a 20 2a 20 2d 20 2d 20 | 2d 20 2d 20 20 20 20 20 |* * - - |- -     |
|000014a0| 20 20 20 20 2d 20 2d 20 | 2d 20 2a 20 2d 20 2d 20 |    - - |- * - - |
|000014b0| 2d 20 2d 20 20 20 20 20 | 20 20 20 20 20 4f 20 2d |- -     |     O -|
|000014c0| 20 2d 20 2d 20 2d 20 2d | 20 2d 20 2d 0a 20 20 2d | - - - -| - -.  -|
|000014d0| 20 2d 20 2d 20 2d 20 4f | 20 2d 20 2d 20 2d 20 20 | - - - O| - - -  |
|000014e0| 20 20 20 20 20 20 20 2d | 20 2d 20 2d 20 2a 20 2d |       -| - - * -|
|000014f0| 20 2d 20 2d 20 2d 20 20 | 20 20 20 20 20 20 52 20 | - - -  |      R |
|00001500| 2d 20 2d 20 2d 20 2d 20 | 2d 20 2d 20 2d 20 2d 0a |- - - - |- - - -.|
|00001510| 20 20 2d 20 2d 20 2d 20 | 2d 20 2d 20 2d 20 2d 20 |  - - - |- - - - |
|00001520| 2d 20 20 20 20 20 20 20 | 20 20 2d 20 2d 20 2d 20 |-       |  - - - |
|00001530| 2a 20 2d 20 2d 20 2d 20 | 2d 20 20 20 20 20 20 20 |* - - - |-       |
|00001540| 20 20 20 2d 20 2d 20 2d | 20 2d 20 2d 20 2d 20 2d |   - - -| - - - -|
|00001550| 20 2d 0a 20 20 2d 20 2d | 20 2d 20 2d 20 2d 20 2d | -.  - -| - - - -|
|00001560| 20 2d 20 2d 20 20 20 20 | 20 20 20 20 20 2d 20 2d | - -    |     - -|
|00001570| 20 2d 20 2a 20 2d 20 2d | 20 2d 20 2d 20 20 20 20 | - * - -| - -    |
|00001580| 20 20 20 20 20 20 2d 20 | 2d 20 2d 20 2d 20 2d 20 |      - |- - - - |
|00001590| 2d 20 2d 20 2d 0a 20 20 | 2d 20 2d 20 2d 20 2d 20 |- - -.  |- - - - |
|000015a0| 2d 20 2d 20 2d 20 2d 20 | 20 20 20 20 20 20 52 20 |- - - - |      R |
|000015b0| 2a 20 2a 20 2a 20 2a 20 | 2d 20 2d 20 2d 20 2d 20 |* * * * |- - - - |
|000015c0| 20 20 20 20 20 20 20 20 | 20 2d 20 2d 20 2d 20 2d |        | - - - -|
|000015d0| 20 2d 20 2d 20 2d 20 2d | 0a 20 20 2d 20 2d 20 2d | - - - -|.  - - -|
|000015e0| 20 2d 20 2d 20 2d 20 2d | 20 2d 20 20 20 20 20 20 | - - - -| -      |
|000015f0| 20 20 20 2d 20 2d 20 2d | 20 2d 20 4f 20 2d 20 2d |   - - -| - O - -|
|00001600| 20 2d 20 20 20 20 20 20 | 20 20 20 20 2d 20 2d 20 | -      |    - - |
|00001610| 2d 20 2d 20 2d 20 2d 20 | 2d 20 2d 0a 0a 49 6e 20 |- - - - |- -..In |
|00001620| 74 68 65 20 66 69 72 73 | 74 20 65 78 61 6d 70 6c |the firs|t exampl|
|00001630| 65 2c 20 74 68 65 20 72 | 61 79 20 69 73 20 64 65 |e, the r|ay is de|
|00001640| 66 6c 65 63 74 65 64 20 | 64 6f 77 6e 77 61 72 64 |flected |downward|
|00001650| 73 20 62 79 20 74 68 65 | 20 75 70 70 65 72 0a 62 |s by the| upper.b|
|00001660| 61 6c 6c 2c 20 74 68 65 | 6e 20 6c 65 66 74 20 62 |all, the|n left b|
|00001670| 79 20 74 68 65 20 6c 6f | 77 65 72 20 62 61 6c 6c |y the lo|wer ball|
|00001680| 2c 20 61 6e 64 20 66 69 | 6e 61 6c 6c 79 20 72 65 |, and fi|nally re|
|00001690| 74 72 61 63 65 73 20 69 | 74 73 20 70 61 74 68 20 |traces i|ts path |
|000016a0| 74 6f 0a 69 74 73 20 70 | 6f 69 6e 74 20 6f 66 20 |to.its p|oint of |
|000016b0| 6f 72 69 67 69 6e 2e 20 | 20 54 68 65 20 73 65 63 |origin. | The sec|
|000016c0| 6f 6e 64 20 65 78 61 6d | 70 6c 65 20 69 73 20 73 |ond exam|ple is s|
|000016d0| 69 6d 69 6c 61 72 2e 20 | 20 54 68 65 20 74 68 69 |imilar. | The thi|
|000016e0| 72 64 0a 65 78 61 6d 70 | 6c 65 20 69 73 20 61 20 |rd.examp|le is a |
|000016f0| 62 69 74 20 61 6e 6f 6d | 61 6c 6f 75 73 20 62 75 |bit anom|alous bu|
|00001700| 74 20 63 61 6e 20 62 65 | 20 72 61 74 69 6f 6e 61 |t can be| rationa|
|00001710| 6c 69 7a 65 64 20 62 79 | 20 72 65 61 6c 69 7a 69 |lized by| realizi|
|00001720| 6e 67 20 74 68 65 0a 72 | 61 79 20 6e 65 76 65 72 |ng the.r|ay never|
|00001730| 20 67 65 74 73 20 61 20 | 63 68 61 6e 63 65 20 74 | gets a |chance t|
|00001740| 6f 20 67 65 74 20 69 6e | 74 6f 20 74 68 65 20 62 |o get in|to the b|
|00001750| 6f 78 2e 20 20 41 6c 74 | 65 72 6e 61 74 69 76 65 |ox.  Alt|ernative|
|00001760| 6c 79 2c 20 74 68 65 20 | 72 61 79 0a 63 61 6e 20 |ly, the |ray.can |
|00001770| 62 65 20 74 68 6f 75 67 | 68 74 20 6f 66 20 61 73 |be thoug|ht of as|
|00001780| 20 62 65 69 6e 67 20 64 | 65 66 6c 65 63 74 65 64 | being d|eflected|
|00001790| 20 64 6f 77 6e 77 61 72 | 64 73 20 61 6e 64 20 69 | downwar|ds and i|
|000017a0| 6d 6d 65 64 69 61 74 65 | 6c 79 0a 65 6d 65 72 67 |mmediate|ly.emerg|
|000017b0| 69 6e 67 20 66 72 6f 6d | 20 74 68 65 20 62 6f 78 |ing from| the box|
|000017c0| 2e 0a 0a 41 20 68 69 74 | 20 6f 63 63 75 72 73 20 |...A hit| occurs |
|000017d0| 77 68 65 6e 20 61 20 72 | 61 79 20 72 75 6e 73 20 |when a r|ay runs |
|000017e0| 73 74 72 61 69 67 68 74 | 20 69 6e 74 6f 20 61 20 |straight| into a |
|000017f0| 62 61 6c 6c 3a 0a 0a 20 | 20 2d 20 2d 20 2d 20 2d |ball:.. | - - - -|
|00001800| 20 2d 20 2d 20 2d 20 2d | 20 20 20 20 20 20 20 20 | - - - -|        |
|00001810| 20 2d 20 2d 20 2d 20 2d | 20 2d 20 2d 20 2d 20 2d | - - - -| - - - -|
|00001820| 20 20 20 20 20 20 20 20 | 20 20 2d 20 2d 20 2d 20 |        |  - - - |
|00001830| 2d 20 2d 20 2d 20 2d 20 | 2d 0a 20 20 2d 20 2d 20 |- - - - |-.  - - |
|00001840| 2d 20 2d 20 2d 20 2d 20 | 2d 20 2d 20 20 20 20 20 |- - - - |- -     |
|00001850| 20 20 20 20 2d 20 2d 20 | 2d 20 2d 20 2d 20 2d 20 |    - - |- - - - |
|00001860| 2d 20 2d 20 20 20 20 20 | 20 20 20 20 20 2d 20 2d |- -     |     - -|
|00001870| 20 2d 20 2d 20 4f 20 2d | 20 2d 20 2d 0a 20 20 2d | - - O -| - -.  -|
|00001880| 20 2d 20 2d 20 2d 20 2d | 20 2d 20 2d 20 2d 20 20 | - - - -| - - -  |
|00001890| 20 20 20 20 20 20 20 2d | 20 2d 20 2d 20 2d 20 4f |       -| - - - O|
|000018a0| 20 2d 20 2d 20 2d 20 20 | 20 20 20 20 20 20 48 20 | - - -  |      H |
|000018b0| 2a 20 2a 20 2a 20 2a 20 | 2d 20 2d 20 2d 20 2d 0a |* * * * |- - - -.|
|000018c0| 20 20 2d 20 2d 20 2d 20 | 2d 20 2d 20 2d 20 2d 20 |  - - - |- - - - |
|000018d0| 2d 20 20 20 20 20 20 20 | 48 20 2a 20 2a 20 2a 20 |-       |H * * * |
|000018e0| 2a 20 4f 20 2d 20 2d 20 | 2d 20 20 20 20 20 20 20 |* O - - |-       |
|000018f0| 20 20 20 2d 20 2d 20 2d | 20 2a 20 2d 20 2d 20 2d |   - - -| * - - -|
|00001900| 20 2d 0a 20 20 2d 20 2d | 20 2d 20 2d 20 2d 20 2d | -.  - -| - - - -|
|00001910| 20 2d 20 2d 20 20 20 20 | 20 20 20 20 20 2d 20 2d | - -    |     - -|
|00001920| 20 2d 20 2d 20 4f 20 2d | 20 2d 20 2d 20 20 20 20 | - - O -| - -    |
|00001930| 20 20 20 20 20 20 2d 20 | 2d 20 2d 20 4f 20 2d 20 |      - |- - O - |
|00001940| 2d 20 2d 20 2d 0a 48 20 | 2a 20 2a 20 2a 20 4f 20 |- - -.H |* * * O |
|00001950| 2d 20 2d 20 2d 20 2d 20 | 20 20 20 20 20 20 20 20 |- - - - |        |
|00001960| 2d 20 2d 20 2d 20 2d 20 | 2d 20 2d 20 2d 20 2d 20 |- - - - |- - - - |
|00001970| 20 20 20 20 20 20 20 20 | 20 2d 20 2d 20 2d 20 2d |        | - - - -|
|00001980| 20 2d 20 2d 20 2d 20 2d | 0a 20 20 2d 20 2d 20 2d | - - - -|.  - - -|
|00001990| 20 2d 20 2d 20 2d 20 2d | 20 2d 20 20 20 20 20 20 | - - - -| -      |
|000019a0| 20 20 20 2d 20 2d 20 2d | 20 2d 20 2d 20 2d 20 2d |   - - -| - - - -|
|000019b0| 20 2d 20 20 20 20 20 20 | 20 20 20 20 2d 20 2d 20 | -      |    - - |
|000019c0| 2d 20 2d 20 2d 20 2d 20 | 2d 20 2d 0a 20 20 2d 20 |- - - - |- -.  - |
|000019d0| 2d 20 2d 20 2d 20 2d 20 | 2d 20 2d 20 2d 20 20 20 |- - - - |- - -   |
|000019e0| 20 20 20 20 20 20 2d 20 | 2d 20 2d 20 2d 20 2d 20 |      - |- - - - |
|000019f0| 2d 20 2d 20 2d 20 20 20 | 20 20 20 20 20 20 20 2d |- - -   |       -|
|00001a00| 20 2d 20 2d 20 2d 20 2d | 20 2d 20 2d 20 2d 0a 0a | - - - -| - - -..|
|00001a10| 42 65 20 73 75 72 65 20 | 74 6f 20 63 6f 6d 70 61 |Be sure |to compa|
|00001a20| 72 65 20 74 68 65 20 73 | 65 63 6f 6e 64 20 65 78 |re the s|econd ex|
|00001a30| 61 6d 70 6c 65 20 6f 66 | 20 61 20 68 69 74 20 77 |ample of| a hit w|
|00001a40| 69 74 68 20 74 68 65 20 | 66 69 72 73 74 20 65 78 |ith the |first ex|
|00001a50| 61 6d 70 6c 65 20 6f 66 | 0a 61 20 72 65 66 6c 65 |ample of|.a refle|
|00001a60| 63 74 69 6f 6e 2e 22 20 | 22 50 22 5d 29 0a 28 62 |ction." |"P"]).(b|
|00001a70| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 5c 22 88 |yte-code| "...\".|
|00001a80| c0 c3 c4 5c 22 88 c0 c5 | c6 5c 22 88 c0 c7 c8 5c |...\"...|.\"....\|
|00001a90| 22 88 c0 c9 ca 5c 22 88 | c0 cb cc 5c 22 88 c0 cd |"....\".|...\"...|
|00001aa0| ce 5c 22 88 c0 cf d0 5c | 22 88 c0 d1 d2 5c 22 88 |.\"....\|"....\".|
|00001ab0| c0 d3 d4 5c 22 88 c0 d5 | d6 5c 22 88 c0 d7 d8 5c |...\"...|.\"....\|
|00001ac0| 22 87 22 20 5b 64 65 66 | 61 6c 69 61 73 20 62 62 |"." [def|alias bb|
|00001ad0| 2d 69 6e 69 74 2d 62 6f | 61 72 64 20 23 5b 28 6e |-init-bo|ard #[(n|
|00001ae0| 75 6d 2d 62 61 6c 6c 73 | 29 20 22 c0 c1 21 88 c2 |um-balls|) "..!..|
|00001af0| 89 1b 1c 0d 53 89 15 c6 | 59 83 27 00 c0 c7 21 c0 |....S...|Y.'...!.|
|00001b00| c7 21 42 13 c8 0b 0c 5c | 22 84 11 00 0b 0c 42 14 |.!B....\|".....B.|
|00001b10| 82 08 00 0c 2a 87 22 20 | 5b 72 61 6e 64 6f 6d 20 |....*." |[random |
|00001b20| 74 20 6e 69 6c 20 70 6f | 73 20 62 6f 61 72 64 20 |t nil po|s board |
|00001b30| 6e 75 6d 2d 62 61 6c 6c | 73 20 30 20 38 20 62 62 |num-ball|s 0 8 bb|
|00001b40| 2d 6d 65 6d 62 65 72 5d | 20 33 5d 20 62 62 2d 69 |-member]| 3] bb-i|
|00001b50| 6e 73 65 72 74 2d 62 6f | 61 72 64 20 23 5b 6e 69 |nsert-bo|ard #[ni|
|00001b60| 6c 20 22 c0 89 19 1a c3 | 20 88 c4 63 88 c5 12 5c |l ".....| ..c...\|
|00001b70| 6e 53 89 12 c6 59 83 1b | 00 c7 63 88 82 0c 00 c4 |nS...Y..|..c.....|
|00001b80| 63 88 c8 c9 0e 5c 6e 47 | 5c 22 63 2a 87 22 20 5b |c....\nG|\"c*." [|
|00001b90| 6e 69 6c 20 62 75 66 66 | 65 72 2d 72 65 61 64 2d |nil buff|er-read-|
|00001ba0| 6f 6e 6c 79 20 69 20 65 | 72 61 73 65 2d 62 75 66 |only i e|rase-buf|
|00001bb0| 66 65 72 20 22 20 20 20 | 20 20 20 20 20 20 20 20 |fer "   |        |
|00001bc0| 20 20 20 20 20 20 20 20 | 20 20 5c 6e 22 20 38 20 |        |  \n" 8 |
|00001bd0| 30 20 22 20 20 20 2d 20 | 2d 20 2d 20 2d 20 2d 20 |0 "   - |- - - - |
|00001be0| 2d 20 2d 20 2d 20 20 20 | 5c 6e 22 20 66 6f 72 6d |- - -   |\n" form|
|00001bf0| 61 74 20 22 5c 6e 54 68 | 65 72 65 20 61 72 65 20 |at "\nTh|ere are |
|00001c00| 25 64 20 62 61 6c 6c 73 | 20 69 6e 20 74 68 65 20 |%d balls| in the |
|00001c10| 62 6f 78 22 20 62 62 2d | 62 6f 61 72 64 5d 20 33 |box" bb-|board] 3|
|00001c20| 5d 20 62 62 2d 72 69 67 | 68 74 20 23 5b 6e 69 6c |] bb-rig|ht #[nil|
|00001c30| 20 22 08 c1 55 3f 85 0e | 00 c2 75 88 08 54 89 10 | "..U?..|..u..T..|
|00001c40| 87 22 20 5b 62 62 2d 78 | 20 38 20 32 5d 20 32 20 |." [bb-x| 8 2] 2 |
|00001c50| 6e 69 6c 20 6e 69 6c 5d | 20 62 62 2d 6c 65 66 74 |nil nil]| bb-left|
|00001c60| 20 23 5b 6e 69 6c 20 22 | 08 c1 55 3f 85 0f 00 c2 | #[nil "|..U?....|
|00001c70| c3 21 88 08 53 89 10 87 | 22 20 5b 62 62 2d 78 20 |.!..S...|" [bb-x |
|00001c80| 2d 31 20 62 61 63 6b 77 | 61 72 64 2d 63 68 61 72 |-1 backw|ard-char|
|00001c90| 20 32 5d 20 32 20 6e 69 | 6c 20 6e 69 6c 5d 20 62 | 2] 2 ni|l nil] b|
|00001ca0| 62 2d 75 70 20 23 5b 6e | 69 6c 20 22 08 c1 55 3f |b-up #[n|il "..U?|
|00001cb0| 85 0f 00 c2 c3 21 88 08 | 53 89 10 87 22 20 5b 62 |.....!..|S..." [b|
|00001cc0| 62 2d 79 20 2d 31 20 70 | 72 65 76 69 6f 75 73 2d |b-y -1 p|revious-|
|00001cd0| 6c 69 6e 65 20 31 5d 20 | 32 20 6e 69 6c 20 6e 69 |line 1] |2 nil ni|
|00001ce0| 6c 5d 20 62 62 2d 64 6f | 77 6e 20 23 5b 6e 69 6c |l] bb-do|wn #[nil|
|00001cf0| 20 22 08 c1 55 3f 85 0f | 00 c2 c3 21 88 08 54 89 | "..U?..|...!..T.|
|00001d00| 10 87 22 20 5b 62 62 2d | 79 20 38 20 6e 65 78 74 |.." [bb-|y 8 next|
|00001d10| 2d 6c 69 6e 65 20 31 5d | 20 32 20 6e 69 6c 20 6e |-line 1]| 2 nil n|
|00001d20| 69 6c 5d 20 62 62 2d 65 | 6f 6c 20 23 5b 6e 69 6c |il] bb-e|ol #[nil|
|00001d30| 20 22 c0 11 c2 09 0b 42 | 21 87 22 20 5b 38 20 62 | ".....B|!." [8 b|
|00001d40| 62 2d 78 20 62 62 2d 67 | 6f 74 6f 20 62 62 2d 79 |b-x bb-g|oto bb-y|
|00001d50| 5d 20 33 20 6e 69 6c 20 | 6e 69 6c 5d 20 62 62 2d |] 3 nil |nil] bb-|
|00001d60| 62 6f 6c 20 23 5b 6e 69 | 6c 20 22 c0 11 c2 09 0b |bol #[ni|l ".....|
|00001d70| 42 21 87 22 20 5b 2d 31 | 20 62 62 2d 78 20 62 62 |B!." [-1| bb-x bb|
|00001d80| 2d 67 6f 74 6f 20 62 62 | 2d 79 5d 20 33 20 6e 69 |-goto bb|-y] 3 ni|
|00001d90| 6c 20 6e 69 6c 5d 20 62 | 62 2d 72 6f 6d 70 20 23 |l nil] b|b-romp #|
|00001da0| 5b 6e 69 6c 20 22 08 c1 | 55 84 0c 00 08 c2 55 83 |[nil "..|U.....U.|
|00001db0| 18 00 0b c1 55 86 28 00 | 0b c2 55 86 28 00 c4 08 |....U.(.|..U.(...|
|00001dc0| 0b 5c 22 83 24 00 c5 08 | 0b 5c 22 87 c6 08 0b 5c |.\".$...|.\"....\|
|00001dd0| 22 87 22 20 5b 62 62 2d | 78 20 2d 31 20 38 20 62 |"." [bb-|x -1 8 b|
|00001de0| 62 2d 79 20 62 62 2d 6f | 75 74 73 69 64 65 2d 62 |b-y bb-o|utside-b|
|00001df0| 6f 78 20 62 62 2d 74 72 | 61 63 65 2d 72 61 79 20 |ox bb-tr|ace-ray |
|00001e00| 62 62 2d 70 6c 61 63 65 | 2d 62 61 6c 6c 5d 20 33 |bb-place|-ball] 3|
|00001e10| 20 6e 69 6c 20 6e 69 6c | 5d 20 62 62 2d 70 6c 61 | nil nil|] bb-pla|
|00001e20| 63 65 2d 62 61 6c 6c 20 | 23 5b 28 78 20 79 29 20 |ce-ball |#[(x y) |
|00001e30| 22 08 09 42 1a c3 5c 6e | 0c 5c 22 83 16 00 c5 5c |"..B..\n|.\"....\|
|00001e40| 6e 0c 5c 22 14 c6 c7 21 | 82 1d 00 5c 6e 0c 42 14 |n.\"...!|...\n.B.|
|00001e50| c6 c8 21 29 87 22 20 5b | 78 20 79 20 63 6f 6f 72 |..!)." [|x y coor|
|00001e60| 64 20 62 62 2d 6d 65 6d | 62 65 72 20 62 62 2d 62 |d bb-mem|ber bb-b|
|00001e70| 61 6c 6c 73 2d 70 6c 61 | 63 65 64 20 62 62 2d 64 |alls-pla|ced bb-d|
|00001e80| 65 6c 65 74 65 20 62 62 | 2d 75 70 64 61 74 65 2d |elete bb|-update-|
|00001e90| 62 6f 61 72 64 20 22 2d | 22 20 22 4f 22 5d 20 33 |board "-|" "O"] 3|
|00001ea0| 5d 20 62 62 2d 74 72 61 | 63 65 2d 72 61 79 20 23 |] bb-tra|ce-ray #|
|00001eb0| 5b 28 78 20 79 29 20 22 | c0 c1 5c 6e 89 c3 55 83 |[(x y) "|..\n..U.|
|00001ec0| 0d 00 c4 82 18 00 5c 6e | c5 55 83 17 00 c3 82 18 |......\n|.U......|
|00001ed0| 00 c6 0e 07 89 c3 55 83 | 24 00 c4 82 30 00 0e 07 |......U.|$...0...|
|00001ee0| c5 55 83 2f 00 c3 82 30 | 00 c6 25 89 1e 08 c9 3d |.U./...0|..%....=|
|00001ef0| 83 46 00 ca cb 21 88 0e | 0c 54 89 16 0c 82 80 00 |.F...!..|.T......|
|00001f00| 0e 08 5c 6e 0e 07 42 9a | 83 5d 00 ca cd 21 88 0e |..\n..B.|.]...!..|
|00001f10| 0c 54 89 16 0c 82 80 00 | 0e 0e 54 16 0e ca cf d0 |.T......|..T.....|
|00001f20| 0e 0e 5c 22 21 88 8a d1 | 0e 08 21 88 ca cf d0 0e |..\"!...|..!.....|
|00001f30| 0e 5c 22 21 88 29 0e 0c | d2 5c 5c 89 16 0c 29 87 |.\"!.)..|.\\...).|
|00001f40| 22 20 5b 62 62 2d 74 72 | 61 63 65 2d 72 61 79 2d |" [bb-tr|ace-ray-|
|00001f50| 32 20 74 20 78 20 2d 31 | 20 31 20 38 20 30 20 79 |2 t x -1| 1 8 0 y|
|00001f60| 20 72 65 73 75 6c 74 20 | 68 69 74 20 62 62 2d 75 | result |hit bb-u|
|00001f70| 70 64 61 74 65 2d 62 6f | 61 72 64 20 22 48 22 20 |pdate-bo|ard "H" |
|00001f80| 62 62 2d 73 63 6f 72 65 | 20 22 52 22 20 62 62 2d |bb-score| "R" bb-|
|00001f90| 64 65 74 6f 75 72 2d 63 | 6f 75 6e 74 20 66 6f 72 |detour-c|ount for|
|00001fa0| 6d 61 74 20 22 25 64 22 | 20 62 62 2d 67 6f 74 6f |mat "%d"| bb-goto|
|00001fb0| 20 32 5d 20 38 5d 20 62 | 62 2d 74 72 61 63 65 2d | 2] 8] b|b-trace-|
|00001fc0| 72 61 79 2d 32 20 23 5b | 28 66 69 72 73 74 20 78 |ray-2 #[|(first x|
|00001fd0| 20 64 78 20 79 20 64 79 | 29 20 22 08 84 0f 00 c1 | dx y dy|) ".....|
|00001fe0| 5c 6e 0b 5c 22 83 0f 00 | 5c 6e 0b 42 87 c4 5c 6e |\n.\"...|\n.B..\n|
|00001ff0| 0d 5c 5c 0b 0e 06 5c 5c | 42 0e 07 5c 22 83 20 00 |.\\...\\|B..\". .|
|00002000| c8 87 c4 5c 6e 0d 0e 06 | 5c 5c 5c 5c 0b 0e 06 0d |...\n...|\\\\....|
|00002010| 5c 5c 5c 5c 42 0e 07 5c | 22 83 3f 00 c9 ca 5c 6e |\\\\B..\|".?...\n|
|00002020| 0e 06 5b 0b 0d 5b 25 87 | c4 5c 6e 0d 0e 06 5b 5c |..[..[%.|.\n...[\|
|00002030| 5c 5c 5c 0b 0e 06 0d 5b | 5c 5c 5c 5c 42 0e 07 5c |\\\....[|\\\\B..\|
|00002040| 22 83 5e 00 c9 ca 5c 6e | 0e 06 0b 0d 25 87 c9 ca |".^...\n|....%...|
|00002050| 5c 6e 0d 5c 5c 0d 0b 0e | 06 5c 5c 0e 06 25 87 22 |\n.\\...|.\\..%."|
|00002060| 20 5b 66 69 72 73 74 20 | 62 62 2d 6f 75 74 73 69 | [first |bb-outsi|
|00002070| 64 65 2d 62 6f 78 20 78 | 20 79 20 62 62 2d 6d 65 |de-box x| y bb-me|
|00002080| 6d 62 65 72 20 64 78 20 | 64 79 20 62 62 2d 62 6f |mber dx |dy bb-bo|
|00002090| 61 72 64 20 68 69 74 20 | 62 62 2d 74 72 61 63 65 |ard hit |bb-trace|
|000020a0| 2d 72 61 79 2d 32 20 6e | 69 6c 5d 20 36 5d 5d 20 |-ray-2 n|il] 6]] |
|000020b0| 33 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 62 62 |3).(defa|lias 'bb|
|000020c0| 2d 64 6f 6e 65 20 23 5b | 6e 69 6c 20 22 c0 19 5c |-done #[|nil "..\|
|000020d0| 6e 47 0b 47 55 84 2c 00 | c4 c5 0b 47 c6 55 83 17 |nG.GU.,.|...G.U..|
|000020e0| 00 c7 82 18 00 c8 0b 47 | 0b 47 c6 55 83 25 00 c9 |.......G|.G.U.%..|
|000020f0| 82 26 00 ca 5c 6e 47 25 | 82 59 00 cb 5c 6e 0b 5c |.&..\nG%|.Y..\n.\|
|00002100| 22 89 11 cc 55 83 40 00 | c4 cd 0e 0e 5c 22 88 82 |"...U.@.|....\"..|
|00002110| 56 00 c4 cf 09 89 c6 55 | 83 4d 00 c9 82 4e 00 ca |V......U|.M...N..|
|00002120| 0e 0e 09 d0 5f 5c 5c 24 | 88 d1 d2 21 29 87 22 20 |...._\\$|...!)." |
|00002130| 5b 6e 69 6c 20 62 6f 67 | 75 73 2d 62 61 6c 6c 73 |[nil bog|us-balls|
|00002140| 20 62 62 2d 62 61 6c 6c | 73 2d 70 6c 61 63 65 64 | bb-ball|s-placed|
|00002150| 20 62 62 2d 62 6f 61 72 | 64 20 6d 65 73 73 61 67 | bb-boar|d messag|
|00002160| 65 20 22 54 68 65 72 65 | 20 25 73 20 25 64 20 68 |e "There| %s %d h|
|00002170| 69 64 64 65 6e 20 62 61 | 6c 6c 25 73 3b 20 79 6f |idden ba|ll%s; yo|
|00002180| 75 20 68 61 76 65 20 70 | 6c 61 63 65 64 20 25 64 |u have p|laced %d|
|00002190| 2e 22 20 31 20 22 69 73 | 22 20 22 61 72 65 22 20 |." 1 "is|" "are" |
|000021a0| 22 22 20 22 73 22 20 62 | 62 2d 73 68 6f 77 2d 62 |"" "s" b|b-show-b|
|000021b0| 6f 67 75 73 2d 62 61 6c | 6c 73 20 30 20 22 52 69 |ogus-bal|ls 0 "Ri|
|000021c0| 67 68 74 21 20 20 59 6f | 75 72 20 73 63 6f 72 65 |ght!  Yo|ur score|
|000021d0| 20 69 73 20 25 64 2e 22 | 20 62 62 2d 73 63 6f 72 | is %d."| bb-scor|
|000021e0| 65 20 22 4f 6f 70 73 21 | 20 20 59 6f 75 20 6d 69 |e "Oops!|  You mi|
|000021f0| 73 73 65 64 20 25 64 20 | 62 61 6c 6c 25 73 2e 20 |ssed %d |ball%s. |
|00002200| 20 59 6f 75 72 20 73 63 | 6f 72 65 20 69 73 20 25 | Your sc|ore is %|
|00002210| 64 2e 22 20 35 20 62 62 | 2d 67 6f 74 6f 20 28 2d |d." 5 bb|-goto (-|
|00002220| 31 20 2e 20 2d 31 29 5d | 20 38 20 22 5c 0a 46 69 |1 . -1)]| 8 "\.Fi|
|00002230| 6e 69 73 68 20 74 68 65 | 20 67 61 6d 65 20 61 6e |nish the| game an|
|00002240| 64 20 72 65 70 6f 72 74 | 20 73 63 6f 72 65 2e 22 |d report| score."|
|00002250| 20 6e 69 6c 5d 29 0a 28 | 62 79 74 65 2d 63 6f 64 | nil]).(|byte-cod|
|00002260| 65 20 22 c0 c1 c2 5c 22 | 88 c0 c3 c4 5c 22 88 c0 |e "...\"|....\"..|
|00002270| c5 c6 5c 22 88 c0 c7 c8 | 5c 22 88 c0 c9 ca 5c 22 |..\"....|\"....\"|
|00002280| 87 22 20 5b 64 65 66 61 | 6c 69 61 73 20 62 62 2d |." [defa|lias bb-|
|00002290| 73 68 6f 77 2d 62 6f 67 | 75 73 2d 62 61 6c 6c 73 |show-bog|us-balls|
|000022a0| 20 23 5b 28 62 61 6c 6c | 73 2d 70 6c 61 63 65 64 | #[(ball|s-placed|
|000022b0| 20 62 6f 61 72 64 29 20 | 22 c0 09 5c 6e c3 23 88 | board) |"..\n.#.|
|000022c0| c0 5c 6e 09 c4 23 87 22 | 20 5b 62 62 2d 73 68 6f |.\n..#."| [bb-sho|
|000022d0| 77 2d 62 6f 67 75 73 2d | 62 61 6c 6c 73 2d 32 20 |w-bogus-|balls-2 |
|000022e0| 62 61 6c 6c 73 2d 70 6c | 61 63 65 64 20 62 6f 61 |balls-pl|aced boa|
|000022f0| 72 64 20 22 78 22 20 22 | 6f 22 5d 20 34 5d 20 62 |rd "x" "|o"] 4] b|
|00002300| 62 2d 73 68 6f 77 2d 62 | 6f 67 75 73 2d 62 61 6c |b-show-b|ogus-bal|
|00002310| 6c 73 2d 32 20 23 5b 28 | 6c 69 73 74 2d 31 20 6c |ls-2 #[(|list-1 l|
|00002320| 69 73 74 2d 32 20 63 29 | 20 22 08 84 06 00 c1 87 |ist-2 c)| "......|
|00002330| c2 08 40 0b 5c 22 83 15 | 00 c4 08 41 0b 0d 23 87 |..@.\"..|...A..#.|
|00002340| c6 08 40 21 88 c7 0d 21 | 88 c4 08 41 0b 0d 23 54 |..@!...!|...A..#T|
|00002350| 87 22 20 5b 6c 69 73 74 | 2d 31 20 30 20 62 62 2d |." [list|-1 0 bb-|
|00002360| 6d 65 6d 62 65 72 20 6c | 69 73 74 2d 32 20 62 62 |member l|ist-2 bb|
|00002370| 2d 73 68 6f 77 2d 62 6f | 67 75 73 2d 62 61 6c 6c |-show-bo|gus-ball|
|00002380| 73 2d 32 20 63 20 62 62 | 2d 67 6f 74 6f 20 62 62 |s-2 c bb|-goto bb|
|00002390| 2d 75 70 64 61 74 65 2d | 62 6f 61 72 64 5d 20 34 |-update-|board] 4|
|000023a0| 5d 20 62 62 2d 6f 75 74 | 73 69 64 65 2d 62 6f 78 |] bb-out|side-box|
|000023b0| 20 23 5b 28 78 20 79 29 | 20 22 08 c1 55 86 15 00 | #[(x y)| "..U...|
|000023c0| 08 c2 55 86 15 00 0b c1 | 55 86 15 00 0b c2 55 87 |..U.....|U.....U.|
|000023d0| 22 20 5b 78 20 2d 31 20 | 38 20 79 5d 20 32 5d 20 |" [x -1 |8 y] 2] |
|000023e0| 62 62 2d 67 6f 74 6f 20 | 23 5b 28 70 6f 73 29 20 |bb-goto |#[(pos) |
|000023f0| 22 08 40 c1 5f 08 41 c2 | 5f c3 5c 5c 5c 5c 62 87 |".@._.A.|_.\\\\b.|
|00002400| 22 20 5b 70 6f 73 20 32 | 20 32 32 20 32 36 5d 20 |" [pos 2| 22 26] |
|00002410| 33 5d 20 62 62 2d 75 70 | 64 61 74 65 2d 62 6f 61 |3] bb-up|date-boa|
|00002420| 72 64 20 23 5b 28 63 29 | 20 22 c0 19 c2 0b 47 53 |rd #[(c)| "....GS|
|00002430| 21 88 c4 0b 47 21 88 0b | 63 88 c2 c5 21 29 87 22 |!...G!..|c...!)."|
|00002440| 20 5b 6e 69 6c 20 62 75 | 66 66 65 72 2d 72 65 61 | [nil bu|ffer-rea|
|00002450| 64 2d 6f 6e 6c 79 20 62 | 61 63 6b 77 61 72 64 2d |d-only b|ackward-|
|00002460| 63 68 61 72 20 63 20 64 | 65 6c 65 74 65 2d 63 68 |char c d|elete-ch|
|00002470| 61 72 20 31 5d 20 32 5d | 5d 20 33 29 0a 28 64 65 |ar 1] 2]|] 3).(de|
|00002480| 66 61 6c 69 61 73 20 27 | 62 62 2d 6d 65 6d 62 65 |falias '|bb-membe|
|00002490| 72 20 23 5b 28 65 6c 74 | 20 6c 69 73 74 29 20 22 |r #[(elt| list) "|
|000024a0| c0 c1 c2 c3 0c 5c 22 42 | 21 87 22 20 5b 65 76 61 |.....\"B|!." [eva|
|000024b0| 6c 20 6f 72 20 6d 61 70 | 63 61 72 20 23 5b 28 78 |l or map|car #[(x|
|000024c0| 29 20 22 08 09 9a 87 22 | 20 5b 78 20 65 6c 74 5d |) "...."| [x elt]|
|000024d0| 20 32 5d 20 6c 69 73 74 | 5d 20 35 20 22 5c 0a 52 | 2] list|] 5 "\.R|
|000024e0| 65 74 75 72 6e 73 20 6e | 6f 6e 2d 6e 69 6c 20 69 |eturns n|on-nil i|
|000024f0| 66 20 45 4c 54 20 69 73 | 20 61 6e 20 65 6c 65 6d |f ELT is| an elem|
|00002500| 65 6e 74 20 6f 66 20 4c | 49 53 54 2e 22 5d 29 0a |ent of L|IST."]).|
|00002510| 28 64 65 66 61 6c 69 61 | 73 20 27 62 62 2d 64 65 |(defalia|s 'bb-de|
|00002520| 6c 65 74 65 20 23 5b 28 | 69 74 65 6d 20 6c 69 73 |lete #[(|item lis|
|00002530| 74 29 20 22 08 09 40 9a | 83 5c 6e 00 09 41 87 09 |t) "..@.|.\n..A..|
|00002540| 40 c2 08 09 41 5c 22 42 | 87 22 20 5b 69 74 65 6d |@...A\"B|." [item|
|00002550| 20 6c 69 73 74 20 62 62 | 2d 64 65 6c 65 74 65 5d | list bb|-delete]|
|00002560| 20 34 20 22 5c 0a 44 65 | 6c 65 74 65 73 20 49 54 | 4 "\.De|letes IT|
|00002570| 45 4d 20 66 72 6f 6d 20 | 4c 49 53 54 20 61 6e 64 |EM from |LIST and|
|00002580| 20 72 65 74 75 72 6e 73 | 20 61 20 63 6f 70 79 2e | returns| a copy.|
|00002590| 22 5d 29 0a             |                         |"]).    |        |
+--------+-------------------------+-------------------------+--------+--------+